home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / programs / magicstartmenu / install magicstartmenu < prev    next >
Text File  |  1997-05-20  |  7KB  |  242 lines
  1. ; MagicStartMenu Installation Script
  2. ; Copyright © 1996, 1997 by Ralph Torchia
  3. ; $VER:MagicStartMenu v1.5 (05-20-97)
  4.  
  5. (set @PRGVersion "1.5")
  6. (set @logo-choice "logo.bru")
  7. (set @default-dest "SYS:")
  8.  
  9. ;
  10. ; Let's Introduce ourselves
  11. ;
  12.  
  13. (welcome
  14.   ("\nWelcome to the Magic StartMenu %s installer script.\n\n" @PRGVersion)
  15.   ("    MagicStartMenu documentation comes in AmigaGuide format.  Make sure to read this in order to complete the installation process.\n")
  16.   ("    Follow the installer script's instructions to install Magic StartMenu.\n")
  17. )
  18.  
  19. ;
  20. ; Where is StartMenu located???
  21. ;
  22.  
  23. (set @default-dest
  24.   (askdir
  25.     (prompt "Where is the StartMenu Drawer Located?")
  26.     (help "The install script needs to know where the StartMenu drawer is found on your system.")
  27.     (default @default-dest)
  28.   )
  29. )
  30.  
  31. ;
  32. ; Is the StartMenu drawer really where the user said it is???
  33. ;
  34.  
  35. (if (<> (exists (tackon @default-dest "StartMenu")) 2)
  36.     (exit "The StartMenu drawer is not located here!\nInstallation is halted." (quiet))
  37. )
  38.  
  39. ;
  40. ; Give the user a choice of a Logo
  41. ;
  42.  
  43. (message "There are 5 sidebar logos that you can choose from.\n  Press \"Proceed\" to see a sample picture...")
  44. (run "SYS:utilities/multiview logosample.iff")
  45.  
  46. (
  47.   (set @choice
  48.     (askchoice
  49.       (prompt "Which logo would you like to have installed for StartMenu?")
  50.       (choices ("1 - Amiga Text + checkmark - 16 colours")
  51.                ("2 - Amiga Text + checkmark - Grey Bkgd")
  52.               ("3 - Amiga Text + checkmark - Swirl Bkgd")
  53.               ("4 - Amiga Text + Sunset image")
  54.               ("5 - Amiga Text + colourfull Bkgd")
  55.       )
  56.      (help "Choice 1 is my favourite...")
  57.     )
  58.   )
  59.   (if (= @choice 0) ((set @logo-choice "logo.bru.16col") (set @startb-choice "startb.bru.16col")))
  60.   (if (= @choice 1) ((set @logo-choice "logo.bru.plain") (set @startb-choice "startb.bru.8col")))
  61.   (if (= @choice 2) ((set @logo-choice "logo.bru.bkgd") (set @startb-choice "startb.bru.8col")))
  62.   (if (= @choice 3) ((set @logo-choice "logo.bru.sunset") (set @startb-choice "startb.bru.8col")))
  63.   (if (= @choice 4) ((set @logo-choice "logo.bru.colourful") (set @startb-choice "startb.bru.8col")))
  64. )
  65.  
  66.  
  67. ;
  68. ; Copy all the main files to the StartMenu drawer
  69. ;
  70.  
  71. (copyfiles
  72.   (prompt "Copying brushes to %s" (tackon @default-dest "StartMenu"))
  73.   (help @copyfiles-help)
  74.   (source "Main")
  75.   (pattern "#?.bru")
  76.   (dest (tackon @default-dest "StartMenu"))
  77. )
  78. (copyfiles
  79.   (prompt "Copying icon to %s" (tackon @default-dest "StartMenu"))
  80.   (help @copyfiles-help)
  81.   (source "Main")
  82.   (pattern "#?.info")
  83.   (dest (tackon @default-dest "StartMenu"))
  84. )
  85.  
  86.  
  87. ;
  88. ; Copy the appropriate start button brush image
  89. ;
  90.  
  91. (copyfiles
  92.   (prompt "Copying Start button image to %s" (tackon @default-dest "StartMenu"))
  93.   (help @copyfiles-help)
  94.   (source (tackon "Main/" @startb-choice))
  95.   (dest (tackon @default-dest "StartMenu"))
  96.   (newname "startb.bru")
  97. )
  98.  
  99. ;
  100. ; If StartMenuLite is present then copy the necessary files
  101. ;
  102.  
  103. (if (= (exists (tackon @default-dest "StartMenu/StartMenuLite.info")) 1)
  104.   ((copyfiles
  105.     (prompt "Copying icon to %s" (tackon @default-dest "StartMenuLite"))
  106.     (help @copyfiles-help)
  107.     (source (tackon "Main/" "StartMenu.info"))
  108.     (dest (tackon @default-dest "StartMenu"))
  109.     (newname "StartMenuLite.info")
  110.    )
  111.   (tooltype
  112.     (prompt "Re-Setting PATH tooltype for StartMenuLite Icons.")
  113.     (help "StartMenu requires the PATH tooltype set to the directory to where it is located.")
  114.     (dest (tackon @default-dest "StartMenu/StartMenuLite"))
  115.     (settooltype "PATH" (tackon @default-dest "StartMenu"))
  116.   ))
  117. )
  118.  
  119. ;
  120. ; If StartMenuUlraLite is present then copy the necessary files
  121. ;
  122.  
  123. (if (= (exists (tackon @default-dest "StartMenu/StartMenuUltraLite.info")) 1)
  124.   ((copyfiles
  125.     (prompt "Copying icon to %s" (tackon @default-dest "StartMenuUltraLite"))
  126.     (help @copyfiles-help)
  127.     (source (tackon "Main/" "StartMenu.info"))
  128.     (dest (tackon @default-dest "StartMenu"))
  129.     (newname "StartMenuUltraLite.info")
  130.   )
  131.   (tooltype
  132.     (prompt "Re-Setting PATH tooltype for StartMenuUltraLite Icons.")
  133.     (help "StartMenu requires the PATH tooltype set to the directory to where it is located.")
  134.     (dest (tackon @default-dest "StartMenu/StartMenuUltraLite"))
  135.     (settooltype "PATH" (tackon @default-dest "StartMenu"))
  136.   ))
  137. )
  138.  
  139. ;
  140. ; Don't forget to reset the StartMenu icon PATH tooltype
  141. ;
  142.  
  143. (tooltype
  144.   (prompt "Re-Setting PATH tooltype for StartMenu Icons.")
  145.   (help "StartMenu requires the PATH tooltype set to the directory to where it is located.")
  146.   (dest (tackon @default-dest "StartMenu/StartMenu"))
  147.   (settooltype "PATH" (tackon @default-dest "StartMenu"))
  148. )
  149.  
  150. ;
  151. ; Copy the appropriate logo file
  152. ;
  153.  
  154. (copyfiles
  155.   (prompt "Copying logo to %s" (tackon @default-dest "StartMenu"))
  156.   (help @copyfiles-help)
  157.   (source (tackon "Main/" @logo-choice))
  158.   (dest (tackon @default-dest "StartMenu"))
  159.   (newname "logo.bru")
  160. )
  161.  
  162. ;
  163. ; Copy all of the brush files
  164. ;
  165.  
  166. (copyfiles
  167.   (prompt "Copying brushes to %s" (tackon @default-dest "StartMenu/Brushes"))
  168.   (help @copyfiles-help)
  169.   (source "Brushes")
  170.   (pattern "#?")
  171.   (dest (tackon @default-dest "StartMenu/Brushes"))
  172. )
  173.  
  174. ;
  175. ; Copy all the new icons to the Extras directory
  176. ;
  177.  
  178. (copyfiles
  179.   (prompt "Copying icons to %s" (tackon @default-dest "StartMenu/Extras"))
  180.   (help @copyfiles-help)
  181.   (source "Extras")
  182.   (dest (tackon @default-dest "StartMenu/Extras"))
  183.   (pattern "#?")
  184. )
  185.  
  186. ;
  187. ; Set new icons for WinControl in the StartUp
  188. ;
  189.  
  190. (if (= (exists (tackon @default-dest "StartMenu/Startup/WinControl.info")) 1)
  191.   (copyfiles
  192.     (prompt "Copying icon to %s" (tackon @default-dest "StartMenu/Startup/WinControl"))
  193.     (help @copyfiles-help)
  194.     (source (tackon "Extras/WinControl" "WinControl.info"))
  195.     (dest (tackon @default-dest "StartMenu/Startup"))
  196.    )
  197. )
  198.  
  199. ;
  200. ; Is WCPrefs in the SYS:Prefs with an ugly icon?
  201. ;
  202.  
  203. (if (= (exists "SYS:Prefs/WCPrefs") 1)
  204.   (copyfiles
  205.     (prompt "Copying WCPref icon to SYS:Prefs")
  206.     (help @copyfiles-help)
  207.     (source (tackon "Extras/WinControl" "WCPrefs.info"))
  208.     (dest "SYS:Prefs")
  209.   )
  210. )
  211.  
  212. ;
  213. ; Set new icons for WinMaster in the Startup
  214. ;
  215.  
  216. (if (= (exists (tackon @default-dest "StartMenu/Startup/WinMaster.info")) 1)
  217.   (copyfiles
  218.     (prompt "Copying icon to %s" (tackon @default-dest "StartMenu/Startup/WinMaster"))
  219.     (help @copyfiles-help)
  220.     (source (tackon "Extras/WinMaster" "WinMaster.info"))
  221.     (dest (tackon @default-dest "StartMenu/Startup"))
  222.    )
  223. )
  224.  
  225. ;
  226. ; Don't forget to Copy the new StartMenu drawer icon!!!
  227. ;
  228.  
  229. (copyfiles
  230.   (prompt "Copying icon to %s" (tackon @default-dest "StartMenu"))
  231.   (help @copyfiles-help)
  232.   (source "/MagicStartMenu.info")
  233.   (dest @default-dest)
  234.   (newname "StartMenu.info")
  235. )
  236.  
  237. ;
  238. ; Bye-Bye!
  239. ;
  240.  
  241. (exit)
  242.